home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
amac44b.zip
/
QLST@2.QM
< prev
next >
Wrap
Text File
|
1992-05-27
|
3KB
|
51 lines
* qlst@2.qm
* Macro To Load a File List of Files In Ring
* 5/18/92
*
* -----------------------------------------------------------------------
* @(2) Load File List In Ring,
* Read First File In Filelist Macro If It Exists,
* User Selects File To Load From ListFiles Prompt
* ----------------------------------------------------------------------
* See QLSTnn.QM for this macro's description.
@2 macrobegin
setscreenoff * Turn off screen, less flicker *|
endfile markline begfile * Mark file list *|
* ---------------------- Copy File List To Nul ----------------------* *|b
editfile "Nul" return * Load Nul for faster loading *|
copyblock unmarkblock * Copy file list to Nul *|
endfile * Load last file first
* ---------------------- Load File List In Ring ----------------------*
LOAD:
setscreenon setscreenoff * Turn screen on/off to see loading |a
markline * Mark file name at cursor
copy * Copy file name to scrap
editfile currentfilename " " * Load current file plus
paste return * last marked on list into ring
cursorup * Move up to next file in list
jtrue LOAD * Continue loading until top of list
quit * Quit formatted Nul file list *|b
* ------------------- Load First File in Window 2 -------------------*
nextfile * Load first file in list
* -------------- Read Macros of First File If It Exists --------------*
macroread * Read first file's macros if exist
currentfilename * Insert currentfilename
backspace backspace * Remove 2 letter extension
"mac" return * Replace with "mac" extension
escape escape * Removes error prompt if first *|a
* file does not have a macro file *|a
setscreenon * Turn on to see ListFiles' prompt *|a
* ------------------- Select Another File To Load -------------------*
listfiles * Select file to load from list *|a
*
* 31 bytes Tue 07-31-1990 18:30:10
* 31 bytes Thu 05-09-1991 16:25:46
* 29 bytes Fri 11-22-1991 01:01:51 (TH @0, mod to KW @1, from QLST14.QM)
* 35 bytes Tue 05-05-1992 17:49:37 (TH @2, added v.2.15 and ListFiles *|a)
* 50 bytes Thu 05-07-1992 09:56:47 (TH @2, added Nul *|b)